knitr::opts_chunk$set(echo = FALSE)

The data set can be explored for specific events. For example, on October 16th 2017, Storm Ophelia landed in Ireland. We can analyse this data using dplyr and ggplot2. First, we load the libraries.

library(aimsir17)
library(dplyr)
library(ggplot2)

Next, we filter the observations for this date.

o <- observations %>%
  filter(month==10, day==16)
o

Next, we can take a selection of stations that had the lowest atmospheric pressure.

lowest <- o %>% arrange(msl) %>% 
  slice(1:6) %>% 
  pull(station) %>%
  unique()
lowest

This is then visualised using ggplot2

ggplot(filter(o,station %in% lowest),aes(x=date,y=msl,colour=station))+
  geom_point()+geom_line()

The stations with the highest mean hourly windspeed can be found

highest<- o %>% arrange(desc(wdsp)) %>% 
  slice(1:6) %>% 
  pull(station) %>%
  unique()
highest
ggplot(filter(o,station %in% highest),aes(x=date,y=wdsp,colour=station))+
  geom_point()+geom_line()


JimDuggan/aimsir17 documentation built on Aug. 22, 2020, 9:46 p.m.